home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / boot / codePW_2_1.lha / codepw 2.1 / german / install codePW 2.1 next >
Text File  |  1997-11-02  |  4KB  |  141 lines
  1. ; passwortdatei codePW 2.1 by Jürgen Einrauch 16. Juli 1997      
  2. failat 21
  3.  
  4. echo "  *n*e[32m  ___________________________________________________*e[0m"
  5. echo "  *e[43m                                                   *e[0m"
  6. echo "  *e[28;43m        Paßwortdatei codePW    Version 2.1         *e[0m"
  7. echo "  *e[43m___________________________________________________*e[0m*n"
  8.  
  9. IF EXISTS SYS:S/codePW
  10. echo "   *e[32mPaßwortdatei codePW existiert bereits.*e[0m"
  11. echo "   *e[32mInstallation wird abgebrochen.*e[0m"
  12. echo "*n   Lesen Sie dazu bitte die Informationsdatei."
  13. wait 4 secs
  14. endcli >nil:
  15. quit
  16. else
  17. echo "   Lesen Sie zuerst die Informationsdatei zu codePW !"
  18. echo noline "*n   Wollen Sie codePW jetzt installieren ? (Ja/Nein): "
  19. set > nil: Inp ?
  20. if $Inp eq "ja"
  21.   skip start
  22. endif
  23. if $Inp eq "j"
  24.   skip start
  25. endif
  26. if $Inp eq "y"
  27.   skip start
  28. endif
  29. if $Inp eq "yes"
  30.   skip start
  31. endif
  32. echo noline "*n   Installation abgebrochen."
  33. EndCLI >NIL:
  34. quit
  35.  
  36. lab start
  37. search >nil: from s:user-startup search "; Begin codePW"
  38. search >nil: from s:user-startup search "IF EXISTS S:codePW"
  39. search >nil: from s:user-startup search " EXECUTE S:codePW"
  40. search >nil: from s:user-startup search "ENDIF; END codePW"
  41. if warn
  42. skip user
  43. else
  44. echo ""
  45. skip install
  46. endif
  47.  
  48. lab user
  49. IF EXISTS SYS:S/User-StartUP
  50. echo "*n   Ergänze Ihr Verzeichnis S/User-StartUP."
  51. else
  52. wait 2 secs
  53. echo "*n   Keine User-StartUP gefunden,"
  54. echo "   erstelle Verzeichnis neu." 
  55. echo "*n   Ergänze Ihr Verzeichnis S/User-StartUP." 
  56. skip userneu
  57. endif
  58.  
  59. lab userneu
  60. echo >ram:tmp "*n; Begin codePW"
  61. type >>s:user-startup ram:tmp
  62. echo >ram:tmp "IF EXISTS S:codePW"
  63. type >>s:user-startup ram:tmp
  64. echo >ram:tmp " EXECUTE S:codePW"
  65. type >>s:user-startup ram:tmp
  66. echo >ram:tmp "ENDIF; End codePW*n"
  67. type >>s:user-startup ram:tmp
  68. delete >nil: ram:tmp
  69.  
  70. lab install
  71.  
  72. set > nil: pass                             ;eingefügt wegen eines bugs !!!
  73. echo "   Installiere Datei codePW."
  74. endif
  75. wait 2 secs
  76. echo "*n   Tragen Sie jetzt Ihre Anschrift ein."
  77. echo noline "*n   Vorname, Name      : "
  78. set > nil: nam ?
  79. echo  >ram:tmp "echo *"*""
  80. type >>s:codePW ram:tmp
  81. echo  >ram:tmp "echo *"*""
  82. type >>s:codePW ram:tmp
  83. echo  >ram:tmp "echo *"    $nam*""
  84. type >>s:codePW ram:tmp
  85. echo noline "   Straße, Hausnummer : "
  86. set > nil: str ?
  87. echo  >ram:tmp "echo *"    $str*""
  88. type >>s:codePW ram:tmp
  89. echo noline "   PLZ, Wohnort       : "
  90. set > nil: plz ?
  91. echo  >ram:tmp "echo *"    $plz*""
  92. type >>s:codePW ram:tmp
  93. echo "*n   Tragen Sie jetzt ein Paßwort ein. Wählen Sie dazu"
  94. echo "   nur *e[32mein*e[0m zusammenhängendes Wort bzw. Zahlenkombination"
  95. echo "   *e[32mohne*e[0m Leertasten !*n"
  96. echo noline "   Paßwort            : "
  97. set > nil: eingabe ?
  98. echo  >ram:tmp "echo *"    *e[32m_____________________________________________________________*e[0m*""
  99. type >>s:codepw ram:tmp
  100. echo  >ram:tmp "echo *"    *e[;;43m                                                             *e[0m*""
  101. type >>s:codepw ram:tmp
  102. echo  >ram:tmp "echo *"    *e[0;28;43m  Dreimalige Falscheingabe blockiert jeden weiteren Zugang!  *e[0m*""
  103. type >>s:codepw ram:tmp
  104. echo  >ram:tmp "echo *"    *e[;;43m_____________________________________________________________*e[0m*""
  105. type >>s:codepw ram:tmp
  106. echo  >ram:tmp "echo *"*""
  107. type >>s:codePW ram:tmp
  108. echo  >ram:tmp "lab passwort"
  109. type >>s:codePW ram:tmp
  110. echo >ram:tmp "echo noline *"*e[;;31m*""
  111. type >>s:codepw ram:tmp
  112. echo >ram:tmp "echo noline *"    Paßwort: *""
  113. type >>s:codepw ram:tmp
  114. echo >ram:tmp "echo noline *"*e[;;30m]*""
  115. type >>s:codepw ram:tmp
  116. echo  >ram:tmp "set > nil: pass ?"
  117. type >>s:codePW ram:tmp
  118. echo  >ram:tmp "If $pass not eq *"$eingabe*""
  119. type >>s:codePW ram:tmp
  120. echo  >ram:tmp "skip back passwort"
  121. type >>s:codePW ram:tmp
  122. echo  >ram:tmp "endif"
  123. type >>s:codePW ram:tmp
  124. echo  >ram:tmp "unset >nil: pass"
  125. type >>s:codePW ram:tmp
  126. unset >nil: eingabe                        ;damned bug now fixed ? 
  127. unset >nil: pass ;
  128.  
  129. delete >nil: ram:tmp
  130. wait 2 secs
  131.  
  132. echo "*n   Installation beendet."
  133. echo "   Starten Sie Ihren Rechner neu und überpüfen Sie"
  134. echo "   die ordnungsgemäße Installation, indem Sie zunächst"
  135. echo "   ein falsches und danach das richtige Paßwort ein-"
  136. echo "   geben."
  137. echo "   Bitte 5 Sekunden Geduld ......"
  138. wait 5 secs
  139. endcli >nil:
  140. quit
  141.